home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 5 / Apprentice-Release5.iso / Source Code / C / Games / Xconq 7.1.0 / lib / 1805.g < prev    next >
Text File  |  1996-04-04  |  6KB  |  334 lines
  1. (game-module "1805"
  2.   (title "Austrian campaign, 1805")
  3.   (base-module "napoleon")
  4.   (variants (see-all true))
  5.   (notes (
  6.   "The French must try to capture Vienna, the Austrians must try"
  7.   "to keep it, all within 5 months (turns)."
  8.   ))
  9.   )
  10.  
  11. ;; No unknown terrain in Europe at this time.
  12.  
  13. (set terrain-seen true)
  14.  
  15. (include "eur-50km")
  16.  
  17. (add u* assign-number false)
  18.  
  19. (table acp-to-create (u* u* 0))
  20.  
  21. ;; Suppress random unit generation.
  22.  
  23. (add u* start-with 0)
  24. (table independent-density 0)
  25.  
  26. (set sides-min 6)
  27. (set sides-max 6)
  28.  
  29. (side 1 (name "France") (adjective "French") (emblem-name "flag-france"))
  30. (side 2 (name "England") (adjective "English") (emblem-name "flag-uk")
  31.   (active false))
  32. (side 3 (name "Spain") (adjective "Spanish") (emblem-name "flag-spain")
  33.   (active false))
  34. (side 4 (name "Austria") (adjective "Austrian") (emblem-name "arms-austria"))
  35. (side 5 (name "Prussia") (adjective "Prussian") (emblem-name "arms-prussia")
  36.   (active false))
  37. (side 6 (name "Russia") (adjective "Russian") (emblem-name "arms-russia"))
  38.  
  39. (set initial-date "Jul 1805")
  40.  
  41. (set initial-year-part 6)
  42.  
  43. (set last-turn 5)
  44.  
  45. (add u* point-value 0)
  46. (add capital point-value 1)
  47.  
  48. ;;; Owner of Vienna only should be the winner.
  49.  
  50. (scorekeeper 
  51.   (title "VP")
  52.   (initial 0)
  53.   (do (set (sum point-value)))
  54.   )
  55.  
  56. (capital 70 31 0 (n "Rome"))
  57. (capital 56 69 0 (n "Stockholm"))
  58.  
  59. (inf 56 55 1)
  60. (inf 49 55 1)
  61. (inf 49 55 1)
  62. (inf 61 50 1)
  63. (inf 57 42 1)
  64. (inf 57 49 1)
  65. (inf 38 48 1 (hp 4))
  66. (inf 67 34 1 (hp 4))
  67. (inf 53 50 1)
  68. (inf 63 38 1 (hp 3))
  69. (inf 55 49 1 (hp 8))
  70. (inf 53 53 1 (hp 3))
  71. (inf 56 51 1 (hp 3))
  72. (guards 56 49 1 (hp 2))
  73. (cav 61 50 1)
  74. (cav 54 51 1)
  75. (cav 55 49 1)
  76. (cav 55 49 1)
  77. (ldr 53 53 1 (n "Bernadotte"))
  78. (ldr 53 50 1 (n "Davout"))
  79. (ldr 55 49 1 (n "Lannes"))
  80. (ldr 56 51 1 (n "Marmont"))
  81. (ldr 63 38 1 (n "Massena"))
  82. (ldr 55 48 1 (n "Napoleon"))
  83. (ldr 56 49 1 (n "Ney"))
  84. (ldr 53 51 1 (n "Soult"))
  85. (ldr 49 55 1)
  86. (ldr 61 49 1)
  87. (ldr 61 50 1)
  88. (city 49 55 1 (n "Amsterdam"))
  89. (city 57 45 1 (n "Basel"))
  90. (city 38 48 1 (n "Brest"))
  91. (city 50 52 1 (n "Brussels"))
  92. (city 46 52 1 (n "Calais"))
  93. (city 41 50 1 (n "Cherbourg"))
  94. (city 56 51 1 (n "Coblenz"))
  95. (city 53 53 1 (n "Cologne"))
  96. (city 67 34 1 (n "Florence"))
  97. (city 57 42 1 (n "Geneva"))
  98. (city 57 54 1 (n "Hanover"))
  99. (city 45 49 1 (n "Le Havre"))
  100. (city 48 51 1 (n "Lille"))
  101. (city 54 50 1 (n "Metz"))
  102. (city 63 38 1 (n "Milan"))
  103. (city 43 45 1 (n "Nantes"))
  104. (city 52 49 1 (n "Rheims"))
  105. (city 56 48 1 (n "Strasbourg"))
  106. (city 57 49 1 (n "Stuttgart"))
  107. (city 50 36 1 (n "Toulouse"))
  108. (city 61 50 1 (n "Wurzburg"))
  109. (capital 49 48 1 (n "Paris"))
  110.  
  111. (city 43 53 2 (n "Dover"))
  112. (city 41 58 2 (n "Norwich"))
  113. (city 38 53 2 (n "Plymouth"))
  114. (city 41 53 2 (n "Portsmouth"))
  115. (capital 42 54 2 (n "London"))
  116.  
  117. (capital 42 31 3 (n "Madrid"))
  118.  
  119. (inf 65 43 4 (hp 3))
  120. (inf 72 44 4)
  121. (inf 68 48 4 (hp 1))
  122. (inf 66 47 4 (hp 1))
  123. (inf 66 38 4)
  124. (inf 66 38 4 (hp 4))
  125. (inf 60 48 4)
  126. (cav 59 47 4)
  127. (cav 60 47 4)
  128. (cav 65 43 4)
  129. (cav 60 48 4)
  130. (ldr 66 38 4 (n "Charles"))
  131. (ldr 60 48 4 (n "Ferdinand"))
  132. (ldr 66 38 4 (n "Hiller"))
  133. (ldr 60 48 4 (n "Mack"))
  134. (ldr 65 43 4)
  135. (ldr 72 44 4)
  136. (city 65 43 4 (n "Innsbruck"))
  137. (city 68 48 4 (n "Prague"))
  138. (city 66 47 4 (n "Ratisbon"))
  139. (city 59 48 4 (n "Ulm"))
  140. (city 67 38 4 (n "Venice"))
  141. (capital 78 42 4 (n "Budapest"))
  142. (capital 63 47 4 (n "Munich"))
  143. (capital 72 44 4 (n "Vienna"))
  144.  
  145. (inf 62 54 5 (hp 1))
  146. (capital 62 54 5 (n "Berlin"))
  147.  
  148. (inf 74 51 6 (hp 7))
  149. (inf 73 57 6 (hp 3))
  150. (inf 74 54 6)
  151. (guards 74 55 6 (hp 2))
  152. (cav 75 51 6)
  153. (cav 74 57 6)
  154. (cav 75 54 6)
  155. (ldr 74 51 6 (n "Bagration"))
  156. (ldr 73 57 6 (n "Benningsen"))
  157. (ldr 74 54 6 (n "Buxhowden"))
  158. (ldr 74 54 6 (n "Constantine"))
  159. (ldr 74 51 6 (n "Kutuzov"))
  160. (city 74 54 6 (n "Brest-Litovsk"))
  161. (city 73 57 6 (n "Grodno"))
  162. (city 70 59 6 (n "Kovno"))
  163. (city 74 51 6 (n "Lublin"))
  164. (city 78 47 6 (n "Lvov"))
  165. (city 68 60 6 (n "Memel"))
  166. (capital 86 62 6 (n "Moscow"))
  167.  
  168.  
  169. (area (aux-terrain road
  170.   "160a"
  171.   "160a"
  172.   "160a"
  173.   "160a"
  174.   "160a"
  175.   "160a"
  176.   "160a"
  177.   "160a"
  178.   "160a"
  179.   "160a"
  180.   "160a"
  181.   "160a"
  182.   "160a"
  183.   "160a"
  184.   "160a"
  185.   "160a"
  186.   "160a"
  187.   "160a"
  188.   "160a"
  189.   "160a"
  190.   "160a"
  191.   "160a"
  192.   "160a"
  193.   "160a"
  194.   "160a"
  195.   "160a"
  196.   "160a"
  197.   "160a"
  198.   "160a"
  199.   "160a"
  200.   "66acu92a"
  201.   "68a@91a"
  202.   "63ai5a>su88a"
  203.   "63aj8aD87a"
  204.   "63aj8aj87a"
  205.   "61aeaf2ai5ab87a"
  206.   "62a>sN{r93a"
  207.   "57acu6aj94a"
  208.   "59a@5aj94a"
  209.   "60a@4aj94a"
  210.   "61a<3ab94a"
  211.   "160a"
  212.   "160a"
  213.   "160a"
  214.   "160a"
  215.   "160a"
  216.   "160a"
  217.   "160a"
  218.   "160a"
  219.   "160a"
  220.   "160a"
  221.   "160a"
  222.   "160a"
  223.   "160a"
  224.   "160a"
  225.   "160a"
  226.   "160a"
  227.   "160a"
  228.   "160a"
  229.   "160a"
  230.   "160a"
  231.   "160a"
  232.   "160a"
  233.   "160a"
  234.   "160a"
  235.   "160a"
  236.   "160a"
  237.   "160a"
  238.   "160a"
  239.   "160a"
  240.   "160a"
  241.   "160a"
  242.   "160a"
  243.   "160a"
  244.   "160a"
  245.   "160a"
  246.   "160a"
  247.   "160a"
  248.   "160a"
  249.   "160a"
  250.   ))
  251.  
  252. (area (aux-terrain river
  253.   "160a"
  254.   "160a"
  255.   "160a"
  256.   "160a"
  257.   "160a"
  258.   "160a"
  259.   "160a"
  260.   "160a"
  261.   "160a"
  262.   "160a"
  263.   "160a"
  264.   "160a"
  265.   "160a"
  266.   "160a"
  267.   "160a"
  268.   "160a"
  269.   "160a"
  270.   "160a"
  271.   "160a"
  272.   "68ami90a"
  273.   "68ab?}i88a"
  274.   "70ab?y87a"
  275.   "54ami10agq4ady86a"
  276.   "54ab?}i8acT5ab86a"
  277.   "56ab?}i7ahq91a"
  278.   "48a5mi4ab?y6acXi90a"
  279.   "48ab4=?}i4ady6ab?y89a"
  280.   "54ab?y4ad}i6ad}i87a"
  281.   "56ahq4ab?}i5abCq86a"
  282.   "56agL6ab?}i4agL86a"
  283.   "56agLae4miab?y3agL86a"
  284.   "56agLagM3=?}iab4a<86a"
  285.   "56agL2a<4ab?y92a"
  286.   "56acXmi7ad}2mi88a"
  287.   "57ab2=8ab2=?y87a"
  288.   "72ad}2mi83a"
  289.   "73ab2=?y82a"
  290.   "77ady81a"
  291.   "78ahq80a"
  292.   "78acT80a"
  293.   "79ady79a"
  294.   "62ae4mi12ahq9aemi66a"
  295.   "63a5=12acT9agM=66a"
  296.   "81ad}8moL67a"
  297.   "82ab9=<67a"
  298.   "160a"
  299.   "160a"
  300.   "160a"
  301.   "160a"
  302.   "160a"
  303.   "160a"
  304.   "160a"
  305.   "160a"
  306.   "160a"
  307.   "160a"
  308.   "160a"
  309.   "160a"
  310.   "160a"
  311.   "160a"
  312.   "160a"
  313.   "160a"
  314.   "160a"
  315.   "160a"
  316.   "160a"
  317.   "160a"
  318.   "160a"
  319.   "160a"
  320.   "160a"
  321.   "160a"
  322.   "160a"
  323.   "160a"
  324.   "160a"
  325.   "160a"
  326.   "160a"
  327.   "160a"
  328.   "160a"
  329.   "160a"
  330.   "160a"
  331.   "160a"
  332.   "160a"
  333.   ))
  334.